unit history;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids,
  DbCtrls, StdCtrls;

type

  { TfrmHistory }

  TfrmHistory = class(TForm)
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmHistory: TfrmHistory;

implementation

{$R *.lfm}

{ TfrmHistory }

procedure TfrmHistory.FormShow(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.Refresh;
end;

end.

